i 



~1 






%■' # 



**» 



fn^r-^ 



LABEL OOOOOOOOOLINE 00176349CC EX O/R; COMMON»l/F ILE SsCANDE/PATCHES* END* 

FILE» CANDE/PATCHES TUESQAY 12/14/76 06115 PM 



/R 



i*AL60L 
♦♦ALGOL 
S*ALGOL 
$*ALGOL 
**ALGOL 



S* LIST MERGE 
it LOCAL ZIPARRAY 
S, 41 PATCHES FOR C 
$*CQMPILE CANDE16/T 
S*ALGOL FILE TAPE*S 
FILE LINE-1 
FILE LINE"! 
STACK«1023. 
PROCESSalSl 
CQRE-16S0Q, 
**PROCESS«ll«OOlOOj 

$*OATA CARD. 
$• 

S SET TAPE CHECK SI 
$ SET LIST SEND FOR 
J RESET LIST BEND P 
$ SET XREF 

J R£SET XRE.F 

S# PATCH NUMBER 105 
IF T * T 
CF «• 



ANDE.XVI.0.5.28 
SHARER WITH XALGUL 
YMBOL/CANDE TAPE. 
5111S6/CANDE BACK 
5111S6/CANDE BACK 

oo;algol ia«i5*oo. 

IO*11»OOIOO;CORE*6 



NGLE SEOERR COMMS 
MAT PRT RESET LIST 

rt format set list 



for library, [uavej 
up tape, 

UP DISK. 



000, 



BROCK ONlV, 
FRTCHeS TO CArtPe 

MARK 16./ 



FOR CANDEtXVXiO C 
HEN a [BASE] ♦ -I 
IF A [BASED < TH 



$1 THIS PATCH C 
St PATCH* THE S 
$1 TWO "SAVE"-S 
SI 
SI 



ONTAINS 4 
ELSE 

EN ELSE 
FILETYPE C32J42J6J & UNLOCK 

]tC2U03 



ORRECTS PATCH NUMBER 3 OF MARK 
AVE-FACTOR OF THE SOURCE AND OB 
WERE DONE FOR A FILE WITH NO I 



CARDSt 

A [BASED & 
TOGGLE [3l547tlJ)i 
* A [BASE]; 

XVI CANOE. PRIOR TO THIS 
JECT FILES WERE ZEROED IF 
NTERVENING UPDATES. 



59001800 
59004400 
59004450 
59010700 



$# 



_D.G. WILLMS, 



Si THIS PATCH A 
SI 

SI D.G. WlLLMS, 



23FEB76. 

466 TOR CAkGt.XVl.U LUNIAIns i 
MATCH <WORD*"LIBRARY") LIB I* T 
LLOWS THE WORD "LIBRARY" IN THE 



txrt: — — 

RUE ELSE 
LIST VERB CAS PER MANUAL) 



56007650 



7# 



si 

St 

si 



PATCH NUMBER 
DS »« 7 chr; 
TALLY »» 12; 
THIS PATCH C 
ALLOWS 7 CHA 



_gMAR76. 

"57)1 HJH CAhJDt.XVl.O CONTAINS 2 CAROS, 



REATES A 7 CHARACTER H 
RACTER NAMES* BUT ONLY 



EADING FOR THE LIST VERB. THE VERB 
LISTS THE FIRST 6 IN THE HEADING. 



00069800 
00069900 



n T r.. WJJL lMSj 9MAR76. 



PATCH NUMBER 402 FOR CANOE. XVl.O CONTAINS 1 
IF CSEflt^EVENTS C33) • - USERCODE THEN A 
THIS PATCH UPDATES Q-MARK STATUS. 



S# 

St 
St 
S| 

SI 
St 
SI 
SI 

SI n.fi. HILLMS* LJUN76J 

s# patch number 403 for 
goodobji*false; 



CARO. 

CBASE+33l*0; 44006600 



THIS PATCH CORRECTS THE RESULTS OF A Q^MARK 

WHILE A COMPILATION IS BEING DONE. IF THE 

THE SEQUENCE BEING COMPILED IS NOT KNOWN, 

SUPPRESS "AT SEQ GIBBERISH" IF THE SEQUENCE 



STATUS REQUEST DONE 
COMPILER IS NOT IN CORE* 
THIS PATCH CAUSES CANDE TO 

NUMBER IS NOT KNOWN. 



CANDE. XVI. CONTAINS 1 CARO 



62010350 



.1 






$t 
$1 
si 

$i 
si 



THIS PATCH UPDATES CHANGE TYPE. 

IF A USER CHANGES THE TYPE QF His WQRKFILE, HE WILL NO LONGER HAVE 

A VALID OBJECT VERSION OF HIS WORKFILE. 



D.G.WILLMSMIAUG76, 
*# PATCH ~~ 



CARDS* 
"> 



NUMBER 404 FOR CANDE. XVI. CONTAINS 5 
MATCH (VERBTABLE CA t S3 . C 9 » 9 3 3 , C6 I 42 3 '"TYPE 
BEGIN WHlCHisW GO GETYPE END> 
VOIDT 67000000 

CALL (NOTUSED); * 65 «■ HAS "TYPE" 

"4TYPE ", 3 W 3000400000000076«, X #62 

patch changes change type, 
"type" now goes through "change", 
is done to i) reduce similar code/ 

2) allow abbreviations in type <as per manual), 
to this change, cande would be upset at things like 



ALSO 



00201010 
00201020 
65000000 
90316000 
90386000 



THIS 
VERB 
THIS 



PRIOR 



TYPE I X, 



I n t ft t WlLI MS. 1lAUft7ft. 



# PATCH NUMBER 405 FOR CANDE, XVI, CONTAINS #//CARD5. 
IF FILENAMES THEN GQER R ("NO F1|_E",1); 




m 



VAROCj 



*Wl 



) 






75000350 
75000550 
75002550 



LABEL EXIT; 

IF FILENAMES THEN GOERR C"NO FILE",1) ELSE X CASE 
EXlTl 
Si THIS PATCH CORRECTS DELETE, PUNCH AND UPDATE VERBS. 

PRIOR TO THIS PATCH, NONE OF THE VERBS CHECKED TO SEE IF THERE WAS A 

VALID WQRKFILE. 

THIS CAUSED "DELETE" TO GENERATE A SOURCE FILE ON DISK* 

"PUNCH" TO FIRE UP PUNCH/CANDE WHICH WOULD GET DS-ED ON 

A NO FILE ERROR, 
"UPDATE" TO RESPOND WITH "#" EVEN THOUGH THERE WAS NO WQRKFILE 




Si 
si 
Si 
st 
si 

S( 
SI 



SI n.ft.HlLLMS,nAUfi76. 
' S# PATCH NUMBER 406" FOR" 



B&cK 0, PATCH ¥0^ 




Dfi OCS> C >/s/77j 



'J. 



CANDE. XVI. CONTAINS 3 CARDS. 
GO EXIT; 58060000 

% VOID A CARD 58063000 

S VQIDT 58067000 58065000 

SI THIS PATCH CORRECTS LOADIT, 

S| PRIOR TO THIS PATCH, IF LOADIT FOUND THE FILES NOT OK (IE. FRESOK • 
Si FALSE? IT WOULD SET WANT«V5ETUPFILES. UNFORTUNATELY IT DID NOT EXIT 
SI IN ORDER TO SET UP THE FILES. INSTEAD IT FELL DIRECTLY INTO THE 
Si DISPATCH OF LOAD/CANDE, AFTER LQAD/CANDE EOJ* LOADIT WOULD ISSUE 
Si A CANCELCKPT WHIcH WOULD PRODUCE SERIOUS ERRO«S (SEGMENT ZERO QVERWRJTE'ETC) . 
SI 

SI D.G.WILLMS,16AUQ76. 

S# PATCH NUMHLH 4U7 FOR CANOE. xvl.0 CONTAINS 3 CARDS. 
LABEL SUFFIX; 

IF LIBTOG THEN GO SUFFIX ELSE X"RESEQ" IS FILE-NAME 
SUFFIXI 
I THIS PATCH UPDATES "CQPYIT", 

PRIOR TO THIS PATCH, "RESEQ" COULD NOT BE USED AS A FILE 
(IE. COPY SYMBOL/RESEQ WOULD RESULT IN COPYING 
RESEQUENCING). 



52007012 
52009850 
52012650 



. _, NAME, 
SYMBOL/^USERCODE" WITH 



Mi i ^l 1 MS.laAlif.TA. 



# PATCH NUMBER 500 FOR CANDE. XVl.O CONTAINS 4 CAROS. 



i-HM'ii 'iH 'I I'll''' i;l i'l« mUm 



ill Vll«li.l||iirii ,iM|iili|tNlHi,<liiilii|ii |Hillt il |I|i|iii, h.lil Il|'i<ilili|i|n|kih4l'l«l'"i|ir< | l < ; | 




> ° o °, 

J ^ M N rO M N 

5S % ^ ^ ^ ^ VTA 

IjM ^ «n ^M ^ ^ vN 

O ° C) O O 



5: 



•. #»» 



si 
st 
$i 
si 
si 
"s 



IF DEVICE a TELETYPE OR DEVICE * TC500 THEN 
IF QEVICE * TELETYPE OR DEVICE * TC500 THEN 
IF DEVICE * TELETYPE OR DEVICE * TC500 THEN 
IF OEVICE * TELETYPE OR DEVICE * TC500 THEN 
THIS PATCH WILL PREVENT CANQE FROM SENDING BLACKOUT 
VIDEO TERMINALS (IE. CONRAC QR BIUS)^ WHAT A WASTE 
BLACKOUT A CRT, 



CHARACTERS 
OF TIME TO 



01011450 
36001650 
36002550 
36003450 



TO 
TRY TO 



D.G. WILLMS »?6FFR76. 

ATCH NUMBER 501 FOR CANDE.XVlfQ CONTAINS 63 CARDS, 



UPT END ELSE JUMP OUT); 



I 



NUMBER 501 

PROCEDURE FjXUSER (CNTR, A,EXIT>BUMPCNTR) * VALUE BUMPCNTR; 
INTEGER CNTR; ARRAY A IQU 
LABEL EXIT; BOOLEAN BUMPCNTR; 
BEGIN 

real word; 

INTEGER If lBY6>LENGTHj 

INTEGER STREAM PROCEDURE CQUNTZE.RO (A); VALUE a; 
BEGIN 

sii»lqc a; tally»*o; 
8 (if sc eql m 0" then begin ups; 
countzeROi.tally; 
end of countzero; 
if (wordi-a [inc (sreg)]),£1«5j eql then 

BEGIN 

WQRDlsDECCQNV (WORD); 

IF LENGTH!** CINC < SREG 3 3 • C 3 1 3 3 EQL THEN 

GQERR (WQRD*8); 
IF U»8"CQUNTZERQ (WORD) > 6 THEN 

GQERR CW0R0#8); 
IF I EQL THEN Unli 
IF LENGTHlnI+LENGTH > 7 THEN 

GQERR CW0RD>8); 
IBY6I-I x 6; 

t6l48-IBY6IIBY6J 



f 



A CSREGJ»*0 & WORD 
A CSREGJ 
DECR (SREG); 
IF BUMPCNTR TH£N 
INC (CNTR); 
END 



& 
[6+IBY6:6:<7-I)x6] & LENGTH C3145I33; 



ELSE 

DECR (SREG); 
END OF FIXUSER; 

ELSE IF WORD EQL.V" THEN 

IF SREG + 2 LEQ MAXSKEG 

ELSE 

goerr cworo^b); 

LABEL NUMUSER; 



THEN FIXUSER(I*A#EXIT#FALSE 



numuseri 

label numuser; 
numuseri 



if inpcount ♦ 2 leq nparams then 

fixuser (inpcqunt*a#exit#true)' 
go to numuser; 

IF LIB in (CHAR I* WORD.CF) ■ «•/" THEN 

IF I ♦ 2 LEQ PC THEN FIXUSER ( J* A#EXiT>TRUE) ELSE 
ELSE 



******QQQ547Q2 

00054704 
00054706 
00054708 
00054710 
00054712 
00054714 
00054716 
00054718 
00054720 
00054722 
00054724 
00054726 
00054728 
00054730 
00054732 
00054734 
00054736 
00054738 
00054740 
00054741 
00054742 

00054744 
00054746 
00054748 
00054750 
00054752 
00054754 

00054756 
00054758 
00054760 
00054762 
00054764 
420027Q0 
) ELSE*2002710 
42002780 

42002785 
52007015 
52012305 
52012310 
52012320 
52015950 

56000450 
56004700 
56004705 
56004710 
56004790 



i 



LABEL 
LIBNAMEt 



MATCH(WORD>"LlBRARY"> 

libnamej 



:n 

SER"t39) ELSE 

XUSER CI*A»EXIT,TRUE) ELSE 



IF SREG ♦ 2 LEQ MAXSREG THEN FIXUSER CT#A#EXlT»FALSE)l 
GO TO LIBNAME 
* VOIOT 57U7000 

IF LIB I* WORD.CF « "/" THE 
IF TOIT THEN GOERR C"NO U 
IF I ♦ 2 LEQ PC THEN Fl 
ELSE 

GOERR (WORD'8); 
HAVEUSER THEN GO ERR ELSE 
BEGIN 

FRQMt»TRUE> 

IF I ♦ 2 LEQ PC THEN FIXUSER 

END 
THIS PATCH ALLOWS USERCOOES STARTING WITH DIGITS IN ALL THE 
CANDE VERBS WHICH ALLOW USERCQDES, 



SI 
$1 
$1 
$1 
$1 
If 



IF 



BEGIN LlB»»TRUE;GO NUMUSER END ELSE5600765Q 

57041500 
5708950Q 
57091100 
57U3O0Q 
57114000 
72003805 
72003810 
72003820 
72003900 
72003905 
74009000 
74009005 
74009010 
74009020 
740Q9095 



(I#A,EXIT*TRUE)1 



, n.a. w I li MS. 



D.G, WILLMS>26FEB76, 

PATCH RFW RITTEN 26MAV76 

PATCH NUMBER 502 FOR CANDE, XVl.O CONTAI 

SPECNAME « AtBASE + 93,U7«QU 

BOOLEAN OBJECTTOGGLE; 

ELSE MATCH ( WQRD>"OBJECT ") 

BEGIN 

MATCH CVERBWORD^EXECUTE") 

IF NAMEWORD CO] X THEN ERROR (8 

ELSE OBJECTTOGGLE !« TRUE 

ELSE ERROR (8) 

END 

IF NOT OBJECTTOGGLE THEN 
IF OBJECTTOGGLE THEN 

IF NAMEWORD C03 * THEN GOERR ("INC 
ELSE SPECNAME ?« if 

FINO CLL&IAM [ 33 I4H7 J , 0, IF SPECNAME 
NAMEWORD C03 . [6 » 36 1» NAMEKORD Cl 
RUNl I* IF SPECNAME ■ 1 THEN NAMEWORD £ 
THIS PATCH EXTENDS THE EXECUTE VERB SYN 
APPEARS BETWEEN EXECUTE AND MFID* THEN 
(IE. EXECUTED AS IS* NO "0" INSERTED IN 
CHARACTERS IN LENGTH 



NS 



16 CARDS, 
% NO "0' 



IN MFID 



) 



XMFID ALREADY GIVEN 



SI 
$1 

»1 
St 

SI 

$t 

DEFINE 
DEFINE 



0MPL"#6) 

« 1 THEN NAMEWORO £03 ELSE 
]>U5ERCQDE)1 

0] ELSE NAMEWORD COJ, (6136)1 
TAX, IF THE WORO "OBJECT" 
THE MFID WILL NOT BE FUDGED 

MFIO)? THUS MFID CAN BE 7 



57019500 
57043500 
57092100 

57092200 
57092300 
57092400 
57092500 
57092600 
57092700 
57106500 
57126100 
57126200 
57126300 
57202000 
57202500 
57228000 



0,6. 



WjUil&J ?* c FP7lV 
NUMBER """ """ 



503 FOR CANDE, XVliO CONTAI 
SBASE « 5l#l X PROCEDURE S 
USERNAME1 » AC491 *> *FIRST 
USERNAME2 * AC503 #1 XLAST 
J***************************************** 
STREAM PROCEDURE BLANK2 (A,N)1 VALUE NJ 
BEGIN DI»«A1 N(DS|««LIT " ")1 END! 

TWX0UTCLL»W0RKC03#24»CRLF)i 

IF DEVICE ■ TELETYPE OR DEVICE 

QUlCKBYEBlTt»il % QUlCKB 

MOVE C2'WORDS»WORKt4 3,USERNAMEl)l 

MOVE (2#W0RDS#USERNAMEi*W0RK 

W0RKC3Jl*DECCQNV(LL)l HQRKL3 



NS 32 CARDS, 
TACK BASE 

7 CHRS OF USER NAME 
8 CHRS OF USER NAME 
********************* 



* TC500 THEN BLACKQU 
YE IF NOT LOGGED IN 
% SAVE NAME 

C1UJ BLANK2ChORKC13> 
3l»WQRK[3J* "LINE " C 



00015900 
00019640 
00019642 

*********00 053000 
00053100 
00053200 
01008500 

Tl 01008550 
01010100 
01014220 

1)1 37001700 

61181303137001710 



BLANKCWGRKC3J); 
TWXOUT(LL/HORKC03#32'C8UF3; 
MOVE (2#WqRDS#A CBASE3*USEKNAME1 ) ; 
PROCEDURE FRM (F,T*UN#LL); VALUE Hi 



CW»UN#LUJ VALUE Hi 



C1J); BLANK2(WORKCl3*i>; 



STREAM 

si i« un; ups; 
ds i« 15 chr; 

DS 1" 14 WDS; 
STREAM PROCEDURE BZY 

si t« un; 

DS l« 15 CHR* 
BZY (WORK C2QJ#USERNAMEl#Lt.>> 
TWXOUT CT#WORK C20]#24,l); 

FRM <l*wqrk*usernamei»ll); 

MOVE (2#WOROS»USERNAME1,WORK 
TWXOUT (LL# WORK C 0] # 24* CRLF); 
STREAM PROCEOURE SETNAME (PLACE); 

BEGIN 

DI »« PLACED DS !■ 16 LIT "OSITE OPERATOR "J 

ENO OF SETNAME; 
SETNAME (USERNAME1); 

THIS PATCH REMOVES THE SENDER USLRCOOE FROM THE "5S" MESSAGE. ALSO 
THE USERCODE WILL NOT BE RETURNED TO THE SENDER ON A "USER BUSY" RESPONSE, 
THE USERCODE IS ALSO SUPPRESSED IN THE GOODBYE MESSAGES AND THE TIME MESSAGES 
IN EACH CASE* THE USER"S NAME WILL BE INSERTED (USER NAME 
STORED FROM USERS FILE WHEN USER LOGS IN). 

CANDE WILL ALSO "BLACKOUT" THE LINE WHEN REQUESTING A USER CODE, THIS 
IS DONE SINCE THE REMOTE USERCODES ARE ALSO VALID FOR THE BATCH RUNS 
AND THE DCMCP, 



37001720 
37001800 
39003150 
50000400 
50000600 
50000900 
50001500 
50002100 
50002400 
50002600 
50003700 
50003800 
50005100 
54001700 
54001800 
90367702 

90367706 
90367708 
90367710 
90367712 



procedure blank2 added 

D.G. WILLMS* 21APR76. 



TO CORRECT RESTRICTEDUSER PATCH (#509), 



# PATCH NUMBER 504 FOR CANDE. XVI. CONTAINS 7 CARDS* 

DEFINE PRIVUCQDE'LINE C0*UCL0C3 #; 

FIND (LL&IAM C 33 « 41 » 7 ],Q#"NEWS », "CANDE "#USERCODE); 
FIND (LL&lAM [33*41173*0, A [BASE+13#A [BASE+23 »PRlVUCODE ) ; 
W0RDI*W0RD.C6I423; 
MATCH CWQRO*"SPO «) BEGIN LL»*0; SPOUT (LCW,A C*3,T); GO EXIT 

MATCH (WORD*LINE CLL'UCL0C3) 
U5ERCQDE»*TIME (-1)* * GET USERCODE 



00015750 
01018900 
42003000 
50006910 
EN0;500U6920 
50007200 
90367740 



USE THE PRIV, USERCODE INSTEAD OF "SITE". 

DATA CUMM FACILITY OF THE FIRST USER IN REMOTE/ 



I THIS PATCH CAUSES CANDE TO 

I THIS INSTALLATION USES THE 

I USERS IS THE PRIV, USER, 

I THIS PATCH ALSO SEARCHES NEWS/CANUE USING THE USERCODE OF THE USER THAT 

I BEING LOGGED IN, THIS WILL ALLOW FOR SELECTIVE NEWS/CANDE MESSAGES. 

I WITHOUT THIS PATCH SANDE MAY ABORT ON "SSFILE" COMMANDS AND NEWS/CANOE 

I MAY NOT BE PICKED UP. 

I LINE USES THE PRIV USER AS ITS USERCODE INSTEAD OF "SPQ". 

I CODE ADDED 6JUL76 TO ALLOW "TO SPQ" MESSAGES, 

I 



IS 



-a-w 



WlLLMS, 9MAR76 

CH NUWfelft 505 FOR CANDE. XVI. CONTAINS 11 CARDS, 



ABEL SPECCANDE; 

WORK C03tC2.ll] Is 

MATCH(RUN1*"FIND 

MATCH(RUN1»"GUARD 

S VOIOT 

SPECCANDEi 



i; 

") 
") 



% MARK AS CANDE JOB, 
GO SPECCANDE ELSE 
BEGIN WQRKCQ].C2»l3**0; GO SPECCANDE END ELSE 



27000450 
27002005 
27002010 
27002020 
27003000 
27003750 



IF CONCISE THEN ELSE 27004600 

MATCH (RUN2# H CANDE "> ELSE 27004603 

MATCH (RUN2#"0ISK M ) ELSE 27004606 

RUN2»w"CANDE "J 67001100 

RUN2»*"CAN0E M ; 76030300 

*l THIS PATCH CHANGES THE NAME OF FIND/DISK ANO GUARD/DJSK TO FIND/CANOE 
$1 AND GUARO/CANDE RESPECTIVELY. 
II 
SI Q»Q, WILLMS*24MAR76. 



S# PATCH NUMBER 506 FOR CANOE. XVl.Q CONTAINS li CARDS. 

Itiiittii •■iitiMi>>tiii*<iiti* > iii | iiiiiiiMtiiiiiiiniitiiMiii»i'4UUrQ10 

ALPHA PROCEDURE GETTYPE (FIlETYPE)J VALUE FILETYPE* INTEGER FILETYPE* 74007020 
BEGIN 74007030 

IF FILETYPE GTR NUMOFTYPES THEN SILETYPE««0; 74007040 

GETTYPEJ-IF BOOLEAN (WORK [43.C10I13) THEN "UBJC ) « & 74007050 

TYPETABLE CFILETYPE3 CI0I6I63 ELSE TYPETABLE CFILETYPE3J 74007060 
END OF GETTYPE; 74007070 

S VQIDT 74019200 

PRINTIT (A [BASE + U»GETTYPE (WORK C4] , C36 I 63 ) ) J 74019300 

$ VOIDT 74020800 74020600 

PRINTIT CA [BASE + 1]»GETTYPE (WU«K [4] . [361 6 J ) ) i 74020800 

II THIS PATCH WILL CAUSE CANDE TO GET THE FILETYPE FROM THE DIRECTORY WHEN 

$1 IT HANDLES THE "lIST FILES FILE-NAME" REQUEST* PRIOR TO THIS PATCH CANOE 

Sl WOULD DETERMINE THE FILE TYPE C IE.. SOURCE OR OBJECT) FROM THE NAME, 

Si A ZERO INDICATED OBJECT WHILE A NUN-ZERO MEANT SOURCE. THIS CAUSED THE TYPE 

Si TO BE INCORRECT FOR FUNNY FILES ClE. NQN-TSS). 

St NOTE - CANDE HANDLES A LIST FILES REQUEST IF ONE FILE-NAME IS REQUESTED 

$1 INSTEAD OF FIRING UP LFILES/CANOE. 

SI 

II D t fl. WII LMS. 3lMAR7ft. 



I*~PATCH NUMBER 507 FOR CANDE. XVI. CONTAINS 1 CARD, 

DEFINE MAXLINES * 14 *j %NQ, OF LOGICAL LINES 00007900 

Sl THIS PATCH REDUCES THE NUMBER OF LOGICAL LINES CANDE CAN HANDLE. 

SI 

SI D.G. WILLMS* 5APR76. 



T# PATCH NUMBER 506 Foft CANDE.XVr.~0"" CONTAINS 2 CARDS, 

IF S AND THEN ELSE 61001750 

IF X. [42163 EQL " M THEN 61002950 

Sl THIS PATCH WILL ALLOW A USER TO REMOVE FILE NAMES 7 CHARACTERS IN LENGTH, 
SI 
SI D.G. WILLMS, 5AFR76. 



■"il Pa" 



r ATCH NUMBER 509 FOR CANDE. XVI. CONTAINS 5* CARDS, 

DEFINE LLWORDS ■ 130 *i % WOS PER LOGICAL LINE 00008100 

DEFINE SBASE «? 52 *i * PROCEDURE STACK BASE 00.0.15900 

OEFINE WRKPST « A[5U, [02*233 ## X OBJECT WQRKFILE 00019644 

WRKIOT * A[513,[23I23J *} X TIME LIMITS 00019646 

DEFINE RESTRICTEDUSER « AC493.[5»l3 *> 00019648 

RESTRICTED ■ BOOLEAN (RESTRICTEDUSER ) *i 00019650 

DEFINE SMALLJOBLIMIT « 3600*; % 1 MINUTE 00025450 

CQMl5CLL&l3[33l4t|7 3,2,uSERCQQE#CHARGE#Q,lF RESTRICTED THEN 00039300 

ENTIER (GRACEPERIOO * 216000) ELSE 432000); 00039310 

RESTRICTEDUSERJ«IF < Tl ■USERCODE, [6 16 3 ) GEQ 1 AND T LEQ 9 THEN 001014230 

ELSE II 01014240 

X**********************************************************************X07001410 

BOOLEAN STREAM PROCEDURE FLAGBIT (WJi 07001420 

X******** ******* *******t*** ************************************* *******^Q700\^'iO 

BEGIN 07001440 



I 



SI*»W; IF SB THEN TALI***! ELSE TALLYl«o; FLAGBIT l*TALLY; 
END OF FLAGBIT; 
$ VOIOT 07002410 
WORK E163UIF PROCESSLIMIT GTR THEN PROCESSLIMIT ELSE IF RESTRICTED 

THEN 1500 ELSE 7290; 
WORK C173*«IF IOLIMIT GTR THEN IOLIMIT ELSE IF RESTRICTED THEN 2100 
ELSE 10800; 

WORK [163 is PRQCESSLIMITJ 
WORK C 173 »» IQLIMIT* 
W0RKC2U t* IF STACKSiiE GTR 



THEN STACKSIZE 
ELSE 312; % STACK 
WQRKCi6]t*IF RESTRICTED THEN 1500 ELSE IF PROCESSLIMIT 

7200 THEN 7200 ELSE PROCESSLIMIT; 
WQRKC17]I«IF RESTRICTED THEN 2100 ELSE IF IOLIMIT LEQ 

10800 THEN 10800 ELSE IOLIMIT; 
A CBASE3.C5;UJs»RESTHICTEDU5ER; 
IF PROCESSWORD EQL THEN PROCESSWORD »» 600; X 10 S£CS. 
IF IOWORD EQL THEN IOWORD «* 1800; X 30 SECS, 

WRKPST J* PROCESSLIMIT; 
WRK1QT la IOLIMIT; 

IF PROCESSWORD EQL THEN PROCESSWORD J* WRKPST; 
IF IOWORD EQL THEN J0WQRD J* WRKIQT; 
IF PROCESSWORD EQL X SET PROGRAM SEGMENT ZERO 
OR IOWORD EQL THEN X TO CHECK TIME LIMITS 
BEGIN 

LLDISKREAD *? EVENTS [43; 
WANT Is vdiskread; 

DOING I s 4; 

go to exit; 
end; 

if restricted then 

if processword + ioword gtr smalljqblimit then gqerr ("too big w #69?; 

begin x case 4 - segment zero of code file in core 

if processworo leq then processword i *if flagbit (wqrk c1633 then 

600 ELSE WORK [%6H 
IF IQWQRD LEQ THEN lOWoRDt*IF FUG8IT (WORK C173) THEN 1800 

ELSE WORK [173; 
GO TO runn; 
END CASE 4; 

THIS PATCH CHANGES THE WAY CANDE HANDLES TIME LIMITS, 
COMPILES SUBMITTED BY EXTERNAL USERS HAVE NON-QVERRIOEABLE LIMITS QP 
25 SECS, PST AND 35 SECS, IOT. INTERNAL USERS ARE 2 MINS, PST AND 
3 MINS, IOT, TIME LIMITS SUPPLIED AT COMPILE TIME BECOME THE EXECUTION 
TIME DEFAULTS, . IF NO TIME LIMITS ARE GIVEN AT COMPILE TIME* 10 SECONDS PST 
AND 30 SECONDS IOT ARE USED. EXTERNAL USERS ARE NOT ALLOWED TO 
EXECUTE ANY JOB WHOSE TIME LIMITS (PST + IOT) EXCEED THE SMALL JOB LIMIT 
(CURRENTLY 1 MINUTE?. 

EXTERNAL USERS ARE A L LOWED AN IDLE TIME EQUAL TO THE GRACEPERIOD BEFORE 
THEY ARE THROWN OFF BY THE TSSMCP. INTERNAL USERS ARE ALLOWED 2 HOURS, 
FLAGBIT PROCEOURE MOVED (NOW GLObAL) SO THAT EXECUTE PROCEDURE CAN 



07001450 
07001460 
07002100 
27000900 
27000950 
27001000 
27001050 
32001700 
32001750 
32002000 
32002010 
LEQ32003H0 
32003120 
32003130 
32003140 
39003125 
57177100 
57177200 
57178100 
57178200 
57196100 
57196200 
57219100 
57219200 
57219300 
572J9400 
57219500 
57219600 

57219700 
57219800 

57227400 
57227500 
57253100 
57253200 

57253250 
57253300 
57253350 
57253500 
57253600 



D,G, WILLMS* 12APR76. 
CHECK FLAGBITS IM SEfiMEMT 



ZFRQ OF CODEFILE 



-6 . J U l. 76i 
CARD, 



JETT510 FOR CANDE. XVl.O CONTAINS 
MATCH(RUN1# M LIST ") CHUNKSl*6 ELSE 

THIS PATCH CHANGES THE CHUNK SIZE FOR LIST/CA^DE TO 6 FROM 5, 
THIS SHOULD STOP THE EXPANDED (NO MEM? CONDITIONS* 



27002600 



I 



SI 

$1 



D.G, WILUMS* 7APR76. 



_ _*t D.G. WJLLMS* fAPR76. 

ST HATCH NUMBER 511 FQR CANDE.XVl.O CONTAINS 
BEGIN WC la A CSREQ] • U 

% vriffiT 



4 CARDS 



* VQIDT 



$1 
St 
Si 
SI 
St 
SI 
SI 




61000618 
61000650 

61000660 
61000662 



JECT 



TF 



st 



D.G. WILLMS , 8APR76 _ 

PATCH NUMBER 513 FOR CANDE.XVl.O CONTAINS 1 CARD, 

* 0.0833 l» J5 MINUTES 

5 MINUTES FROM 15 MlNUTESt 



GRACEPERIOD * 0.0833 *> % 
SI THIS PATCH CHANGES THE GRACE PERIOD TO 
St 



00019622 



SI D.G. Wlt^MS, 21APR76. 



S# PATCH NUMBER 514 FOR CANDE.XVl.O CONTAINS 14 CARDS, 

COMPNAME w ACBftSE+lOJJ" X SPECIAL COMPILER 

SAVESIZE * H#; X WORDS USED ABOVE 

ELSE MATCH ( WORD/ "SBECI AL M > IF TYPEWQRD EQL THEN 
TYPEW0RDIa99 ELSE ERROR (8) 
IF TYPEWORD EQL 99 THEN IF COMPNAME EQL THEN 
COMPNAME «* WORD ELSE ERROR (8) ELSE 
IF TYPEWORD EQL 99 THEN 

IF COMPNAME EQL 8 THEN GQERR ("INCUMPLV 6)* 
CHKTYPEt IF TYPEWORD NEQ 99 THEN 
BEGIN 

if not boolean ( c t t «typlt able ctypewordj ) . c 1 1 1] ) then 
end; 
run2:«if compname eql then typeta8le c typeword 3 , c 61 42 j else 

COMPNAME/ 
THIS PATCH ALLOWS SPECIAL COMPILERS UNDER CANOE. THE SYNTAX IS 
"SPECIAL" COMPILER-NAME. IE. C SPECIAL ALGQL16 WITH LISTING, 



SI 
SI 
St 



57020500 
57021000 
57092800 
57092900 
57103100 
571Q3200 
57126400 
57126500 
57150000 
57150100 
57150200 
57151300 
57177000 
57177050 



D.G. WIL^MS, 



20APR76. 
TIT 



** PATCH NUMBER bi5 I- OR CANDE.XVl.O CONTAINS 4 CARDS, 

DS|»52LIT M Y0UR SCHEDULED TIME IS ALMOST UP. PLEASE LOG OFF AS "J 
JF NOT TIMEOK (ENTIER C C TI MENQW t »TI ME< U/2160Q0 5+GRACEPERI QD)* 
TIMELIMITS) THEN 
BEGIN PLSLOGOFF (WORK); TWXOUT (LL/WORK C03*69»2); 
THIS PATCH CHANGES THE WAY USERS ARE TURFED QFF WHEN THEIR SCHEOULEO 
TIME IS UP. INSTEAD OF WARNING THEM AT THE EXPIRY TIME AND THEN GIVI 
THEM A GRACE PERIOD* THEY ARE WARNED BEFORE THEIR EXplRY TIME AND 
THROWN OFF AT THE SCHEDULED TIME. 



SI 
St 
St 
St 
SI 
_. st p.a 



90091500 
90093200 
90093250 
90093400 

NG 



HILLMS, 13APR76 



*# PATCH NUMBER 516 FQR CANDE.XVl.O CONTAINS 85 CARDS* 
DEFINE SECURE ( SECURE 1 » SECURE2, SECURE3* SECURE4 ) * 

C0M157 (LL&U C33»41l7],7>SECUREl»SECURE2'U5ERCQDE#SECURE3> 
SECURE4) #; 
BOOLEAN SLASH, NAM3,NAM4; INTEGER FORGETSET; 
LABEL CHECKUSER* SELECTlT; 

A CBASE+13t»S0URCEFlLE; * DEFAULT FILE NAME 
IF A ClJ,C3l3J * THEN * NOT A LETTER STRING 



00041800 
00041900 
00042000 
68000550 
68000650 
66001400 
68002600 



._ -I 



IF A [H * "/" THEN 

IF SUASH THEN QO ERRl 
ELSE IF WTH THEN IF NAM2 THEN 

BEGIN 



CHECKUSER* 



siashibtrue; 

if i + 2 leq imax then 

begin sreg««i; 

FIXUSERU#A*EXIT#TRUE) ENOJ 
END 

ELSE GO ERRl 
ELSE IF NAM1 THEN GO CHECKUSER 
ELSE GO ERRl 
ELSE 

GO ERRl 
ELSE 
BEGIN 

IF SRC THEN GO TO ERRl' 
IF WTH 

or obj then begin fqrgetset »*2; go selectit end* 

srcj»true; 

if obj then go to errl' 

IF WTH 

or src then begin forget5et 1*1 j go selectit end* 

obj;«truej 

if slash then if nam4 then gu selects 

else begin a [base*7 ] t*wqrd; 
slash««false; 

NAM4t*TRUE END 

ELSE 

IF NAM2 THEN GO SELECTIT ELSE BEGIN 

END 

if obj then 

if w0r0.c42'6] neq " " then 

goerr (wqrd#42>* 
if slash then if nam3 then go selectit 

else begin a [base+63 \ "word* 
slashi*false; 
nam3»*true end 
else begin 

SELECTIT* 

end; 
end; 
if slash or (not namu or (wth and not nam2) then 

GOERR ( M INcMPLT w /6); 
A CBASE+5]*aR£AL (SRC) «. REAL ( OB J) [ 46 » 47 II 3 4 FORGETSET £44 1 46 *2 3 
IF NOT NAM3 THEN A LBASE+63 « *USERCODE; 
* VQIDT 

A CBASE + 3]!?* - A CBASE+23' 

A CBASE+43|«IF NaM4 THEN A lBASE+7) ELSE USERCQDE; 

find (ll&iam c33j7]#0,a cbase*23#a cbase+4 ],usercode ); 

temp»»7; 
if nqt obj then secure ( atbase + 1 3 r acbase*63* a[base*33# acbase+43 >j 

if a cbase+13.c42j63 esl m " then 

IF NOT SRC THEN SECURE (A CBASE+13 • t6 » 363 * A [BaSE + 6J#A [BASE+33' 

A IBAiE+43); % OBJECT 
TEMP**6; 



68002610 
66002620 
66002621 
66002623 
66002625 
68002627 
66002628 
68002629 
68002630 
68002635 
68002640 
68002650 
68002660 
68002670 
68002680 
68002685 
68002690 
68003000 
68003050 
68003100 
66003150 
68003500 
68003550 
68003600 
68003650 
68004510 
66004520 

68004525 
68004530 
68004540 
68004600 
68004850 
68005110 
66005120 
68005130 
68005511 
68005513 
68005514 
68005515 
68005517 
680Q5518 
68005535 
68005540 
68005800 
68005850 
168005950 

66005960 
68006200 
68006210 

68006220 
68006300 
68006400 
68007000 
68007050 
66007100 
68007150 
68007200 



.1 



m 



[BASE+13. [42163 NEQ 
% NO GUARO FILE 



THEN 1 ELSE 2> 



PARAM*«IF SRC OR C)BJ OR A 
A CBA5E+53,[42?23;«PARAM; 
IF EVENTS CI] LSS THEN % 
WQRD*»A [BASE+23; 
WQROJ»A CBASE+23; 
* VOIOT 68009800 

WORDlcA [BASE+53.[42»23 + 5; 
FOR I««6 STEP 1 UNTIL WORD DO 
IF A [BASE+13 NEQ 7 THEN * 
LITOUT ("ERRl "#NOCRLF)* 
IF A CBASE+13. [6I6J EQL 
BEGIN 

A CBASE+13. [6»63»a"*"> 

IF A [BASE+I3. C12I63 LEQ 9 THEN X IE "Q1S010" 
A [BaSE+I3.C12I36JI»FILENAME.C6I36]; 

end; 
litout (- a cbase+i3*crlf)> 

if b cforgetsetjsa c base+5j . [ 44 » 23 ) then src1-false 
else src»»b ca cbase+53); 

IF FORGETSET * 2 THEN OBJ* s FALSE 
ELSE OBJl*B (A [BASE+53 . [46 » 1 3 )} 
THIS PATCH UPDATES THE SECURITY COMMANDS "LOCK", "PUBLIC* AND 



SECURITY MAINTENANCE IGNORED 
THEN 



68007300 
68007350 
68008200 
66008400 
68009000 
68009600 
68010110 
68010120 
68010200 
68010400 
68010510 
68010520 
68010530 
68010540 
68010550 
68010560 
66010600 
68010842 
68010844 
66010646 
68010848 
"UNLOCK", 



1, <SECUBITY COMMAND> NOT FOLLOWED BY A FILE NAME WILL NOW CORRECTLY 
ACCESS THE WORK FILE. PRIOR TO THIS PATCH* CANDE WOULD TRY TO 
ACCESS THE WORK FILE USING THE USER"S NAME ClEi FILENM) INSTEAO OF 
THE SYSTEM NAME (IE. lS#«#). THE RESULT WAS EITHER AN ERROR IF THE 
FILE WAS NOT IN THE USER"S LIBRARY* OR CANDE WOULD UPDATE A LIBRARY 
OF THAT NAME INSTEAD OF THE WUBK FILE, 

2. THE "+" HAS BEEN REMOVED FROM THE FILE NAME IN THE ERROR MESSAGES, 



FILE 



3, ERROR MESSAGES FOR OBJECT FILES HAVE THE FIRST "0" REPLACED WITH AN "*"« 

4, CANDE WILL NOW REPORT AN ERROR IF THE OBJECT FILE IS NOT IN THE DIRECTORY 
ON A <SECURITY COMMAND> <FlLE NAME> INPUT, PRIOR TO THIS CHANGE* CANDE 
WOULD ONLY REPORT ERRORS FOR SOURCE FILES (UNLESS <SECURITY CQMMAND> 
"OBJECT" WAS INPUT). 

5, USERS ARE NOW ALLOWED TO SPECIFY A SUFFIX UN BOTH THE FILE NAME AND 
GUARD FILE NAME* IF IT FOLLOWS A "/", 

EG. LOCK A WITH C/D 
LOCK A/B 
LUCK A/B WITH C 
LOCK A/B WITH C/D 
PUBLIC A/B 
UNLOCK A/B 

**WARNING** - REQUIRES PATCH # 501 FUR "FIXUSER" 

**NOTE** - MCP DOES NOT CHECK SECURITY - NEEDS MCP PATCH * 563. 



D.fi-WILLMS ■ 25MAY76. 



$# PATCH NUMBER 517 FQR CANOE, XVl#0 CONTAINS 76 CARDS, 
BOOLEAN 0BJ*SLASH; INTEGER I*PC* REAL WORD; 
A CBASE+23l*USERCODE; 
ELSE 
BEGIN 



64000550 
64005950 
64006010 
64006020 



SLASHi»08J»=B00UEAN (A CBASE + ^]j»A [ BASE+1 ] »*I 1*0 ) ; 
PC?*A [BASE]; 
WHILE I LSS PC DO 
BEGIN 
INC (I)i 

WURD»*A CINC CSREG)]/' 

IF WORD.C3I33 GTR THEN * LETTER STRING 
BEGIN 

WQRDJ»W0R0,t6»423; 
MATCH (W0RD* M 0BJECT " ) 

QBJ««»T«UE 
ELSE 
IF A [BASE+13 EQL THEN 

A CBASE+1]I*WQR0 
ELSE 
IF A CBASE+2] EOL THEN 
IF SLASH THEN 
BEGIN 

A [BASE+23»*WQRDJ 
SLASHlsFALSEi 

END 
ELSE 
GQERR (WORD'S) 
ELSE 
GOERR (WORD, 8) 
END 
ELSE 
IF WQRD.C1123 EQL 1 THEN % SPECIAL CHARACTER 
IF WORD EQL "/" THEN 
IF SLASH THEN 

GOERR (W0RB#8) 
ELSE 
BEGIN 

SLASHI»TRUEJ 
IF I * 2 LEQ PC THEN 

FIXUSER (I, A, EXIT, TRUE); 
END 
ELSE 
GOERR (WORD'S) 
ELSE 
BEGIN 

wordjsdeccqnv (word); 
goerr (word, 8); 
end; 
end; 

IF SLASH THEN GOERR ( M lNCMPLT",8 )i 
IF OBJ THEN 
IF A [BASE+U EQL THEN 
IF GOODOBJ TH|N 
BEGIN 

A CBASE+13»aSOURCEFILEtC6l363; 
A CBASE3l*0; 
END 
ELSE 
GQERR ("NO FIlE"M) 
ELSE 
A CBASE + 13$sA CBA3E + 13.C6U6]; 



64006030 
64006040 
64006050 
64006060 
64006070 
64006080 
64006090 
64006100 
64006H0 
64006120 
64006130 
64006140 
64006150 
64006160 
64006170 
64006180 
64006190 
64006200 
64006210 
64006220 
64006230 
64006240 
640Q6250 
64006260 
64006270 
6400.6280 
64006290 
64006300 
64006310 
64006320 
64006330 
64006340 
64006350 
64006360 
64006370 
64006380 
64006390 
64006400 
64006410 
64006420 
64006430 
64006440 
64006450 
64OO6460 
64006470 
64006480 
64006490 
64006500 
64006510 
64006520 
64006530 

64006540 
64006550 
64006560 
64006570 
64006580 
64006590 



i 



fej 



St 

I 

>l 
I 

>l 
t 



IF A C8ASE + 2] EQL THEN 64006600 

A [6A5E+23**USERCQDE; 64006610 

END; 64006620 

GO TO CASEW 64006630 

END; % CASE 64006.640 

A C8ASE+23**USERCQDE; 64006950 

FIND CLUIAM [33«4U7]#0,A CBAi>E + 13>A CBASE+2]»USERC0DE); 64007100 

IF A CBA5E + 11.C6I61 EQL THEN A C0A$£ + 13 , t6 » 6 M *»*"1 64007650 

IF EVENTS til LEO THEN 64007700 

BEGIN 64007710 

GOERR (A CBASE + U*2>; 64007730 

END; 64007740 

MSG (L> IF A [BASE*1],C6J63 EQL "*" THEN 0. & "*" C6»42I6J & 64008900 

FILENAME C12i6?363 El.SE F J LENAME, TRUE* TYPETA8LE CFILETYPE3* 64008950 

WORK C73 + l»DATE#TM#WORK [33. [21103) 64009000 
THIS PATCH UPDATES THE WHATS COMMAND, 



A USER CAN NOW 
EG, WHATS A/B. 



SPECIFY A FID IN THE WHaTS COMMAND 



A USER CAN ALSO NOW ACCESS HIS OBJECT WORK FILE VIA WHATS OBJECT, 



$i #*WARNING** - REQUIRES PATCH 
S t D . G , Wt L LMg * UMAY76 , 



# 501 FOR FIXUSEK. 



S# PATCH NUMBER 518 F 
CHANGEFILE4*CHANGE 
CHANGEFILE3, CHANGE 
INTEGER Li 
IF A UNCCSREG)] E 

BEGIN 

IF L«*T-CSREG-S> 

IF I GEQ 2 THEN 

IF A [INCCSREG)] 
A CBASE+53t«A 

ELSE GO TO BAOPA 

INC (SREG); 

END 
ELSE 

A CBASE+53t*USER 
MATCH (A CSREG3.C6 

A C8ASE+13t*A CSRE 
IF A CINC(SREG)3 E 
BEGIN 

IF L»*T-CSREG-S) 
IF L GEQ 2 THEN 

IF A CINC(SREG)3 
A CBASE+63l»A 

ELSE GO TO BADPA 

ENO 
ELSE 

BEGIN DECR (SREG 

A CBASE+63i*U5ER 
TEMPI36J 
X VOID A CARD 

FIND (LL&IAM C33U 
FIND (LL&IAM E 331 4 
FIND (LL&IAM C33t4 



OR CANOE. XVI. Q CONTAINS 92 LAHUS. 

FILES )pCC15 (CHANGEFlLEl#5tCHANGEFlLE2# 
FIlE4#CHANGEFIlE5»USERC0DE) #; 

OL V" THEN 

EQL THEN GO TO BADPARAM; 
FIXUSER (S#A#EXIT»FAL$E)J 
• C 3 S33 GTR THEN 
CSREG3,C6t423 

RAM* 



code; 

t423^ M TYPE 
G3.C6I423; 
QL "/" THEN 



) go getype; 



EQL THEN GO TO BADPARAM; 
FIXUSER (S*A#EXIT#FALSE); 
• C 31 33 GTR TH|N 
CSREG3, [61423 

ram; 



>; 

code; 



end; 



1!7 3*0,MAKEFN ( "1S«* LL )#USE«COOE#USERCODE )i 
1»73>0,A CBASE3#A CBA.$E+5]#USERCQDE ); 
1*73*0, A CBASE+13*A C8ASE*63*USERC0DE )i 



00041200 
00041300 
00200420 
00205400 
00205405 
00205410 
00205415 
00205420 
00205425 
00205430 
00205435 
00205440 
00205445 
00205450 
00205455 
00206300 
00206305 
00206310 
00206315 
00206320 
00206325 
00206330 
00206335 
00206340 
00206345 
00206347 
00206350 
62000500 
62001800 
62001900 
62002500 
62003000 



IF A C8ASE+13 ■ 2 TH£N IF A [BASE J , [42 »63 EQL " " THEN 

A CBASEJ»*A [BASE3,t6:36J ELSE 

GOERR (A [BASE3#42)i 
FIND (LL&IAM t 33 l 41 173# 0, A CBASEJ*A [BASE+53 >US£RCQDE ); 
TI*IF SCHEDULlNE AND BOOLEAN C SCHEDN AM£, [ ll I 3 > THEN Et.SE 3i 

ooing»»2; 

if a cbase+53 eql usercode then 

Tl«LL & VMCPMSG [33l4l«7]i 

CHANGEFILE (T>A CBAS£+13*A CBASE+53*A CBASE*23#A CBASE+63); 

IF A CBASE3,[42t63 EqL « " THEN 

BEGIN 

PARAM»*UIBMSGCTRta2; 

CHANGEFILE (T*A CBASE+33,A [BASE+5]»A CBASE*4J#A CBASE+63); 

END 

ELSE 

PARAMI»LIBMSGCTRJ«i; 
X VOID A CARD 
* VQIDT 

IF A CBASE+6] NEQ 7 THEN GOERR (- A CBASE + 63 * 2 ) ; 

IF A CBASE+5] EQL USERCODE THEN 
X VOID A CARD 

MAKEFILE CLL&13[33»4l»7],l,MAKEFN ( "IS"» Lt ) *USERcODE#FlLETYPE# 0) 

DOINGS; 

lldiskread»atpdkadr; x get eof pointer record in "ip" file 
wanti»vdiskread; 
doing«=ii; 

if a cbase+1] gtr c qr a [base3tc42l6] neq " m then 
find (ll&iam t33l4h73,0,a [base 1 . [6 j 36 3 , a cbas£+53*usercqde ); 

$ VQIDT 

begin litout ("erri %nocrlf>; 

litout co & "*" [6142*63 & a [8ase3 c 12 1 6 l 36 3 #crlf )# 
iami«o; go to exit; 

end; 

begin x case 11 • "ip" eof pointer in core 
if work c03«ten8 then % eof psinter 

BEGIN 

WORK C203»*FILETYPEJ 
DISKWRITE (TPDKA0R); 
IAM»«0; 
END 
ELSE 

BEGIN 

IF WORK Cl03«TEN8 THEN 
A [BASE3lsO 

ELSE 

IF W08K [203»TENS THEN 

A [BASE]l*10 
ELSE 

BEGIN UMiaO; GO EXIT END/ 
DQING»«12; 

lldiskread»«tpdkadr+i; 

want»*vdiskread; 

tempi»i; 

end; 

end; X CASE 11 

BEGIN X CASE 12 - FINALLY GOT FlLETYPE IN "IP" EOF RECORD 
WORK CA £BASE33»«?FILETYPE; 



X NEW FILE TYPE 

X REPLACE EOF POINTER 



X RATS - FILE TYPE IN NEXT SEGMENT 



X CANT FIND EOF MARKER - GIVING UP 



62004563 
62004564 

62004565 
62004566 
62004900 
62005200 
62005680 
62007100 
62007200 
62007210 
620Q7220 
62007230 
62007300 
62007400 
62007410 
62007420 
62007500 
62007800 
62008200 
62008250 
62008800 
162008900 
62009900 
62010375 
62010400 
62010450 
62011500 
620H800 
62011900 
62012500 
62012550 
62012600 
62012650 
62013502 
62013504 
62013506 
62013508 
62013510 
62013512 
62013514 
62013516 
62013518 
62013520 
62013522 
62013524 
62013526 
62013528 
62013530 
62013532 
62013534 

62013536 
62013538 
62013540 
62013542 
62013544 
62013546 
62013548 



i 



OISKWRITE (TpDKADR + 1)/ 62013550 

IAMI*01 62013552 

end; x case 12 62013554 

this patch updates the change command. 

this patch allows a user to specify a fid on both the qldfile and the 
new file. the format is mfid/fid. 
eg. change a/b to c/d 

change source a/b factor to 8 

♦♦warning** - requires patch * 501 for "fixuser" 

**note>* - mcp does not check security - needs mcp patch # 563. 



D.G.HI 

PATCH 

CANDE 

THTS I 



LLMS, 1JUN76. 

UPDATED 13AUG76. D.G.WILLMS, 

WILL NOW UPDATE THE "IP" FILE ON A 

S DONE SO THAT CANDE ml Ll , R E MEM B E R 



workfile type 
a type change 



FOR CANDE. XVI. CONTAINS 
LOADCODE (PLACED 



CHANGE. 
ACROSS A H/L. 



$1 
SI 

si 
si 

si 

SI 



PATCH NUMBER 519 
STREAM PROCEDURE 
BEGIN 

DISPLACE/ DIlsOI+2; 
DSS«6 LIT " PST «; DH*0I + 26i 
DS**6 LIT " IOT* "J 
END OF LOADCODE; 

TIMEUSED (WORK C6J.TIMEC0NV 
LOADCODE (WORK [5])) 
TWXOUT (LL#WO«K C0W2»Z)J 
THIS PATCH UPDATES CANDE EOJ MESSAGE, 



9 CARDS 



(EVENTS U3.tl6l32J#FALSE)); 



14052610 
14052620 
14052630 
14052640 
14052650 
14052660 
14213100 
14213200 
14215000 



CANDE WILL NOW GIVE BOTH PROCESS 
THE FORMAT IS <PST TIME> PSy <I0 

n.a. wi| t ms. a.niM7A. 



& 10 TIMES 
TIME> IOT. 



REQUIRED FOR EACH JOB STEP. 



SI PATCH 

S VOIDT 6 
SI THIS P 
A USER 
PRIOR 
BUT HE 



SI 

s» 

Si 
St 
St 



NUMBER 520 FOR CANDE. XVl.O CONTAINS 1 CARD, 

1002900 

ATCH UPDATES THE REMOVE PROCEDURE. 

CAN NOW REMOVE A FILE IF IT HAS A 
TO THIS PATCH. A USER COULD CREATE 

COULD NOT REMOVE IT. 



61002810 



NAME THAT IS A VERB (IE. BYE), 
THE FILE OR CHANGE ITS NAME 



SI D.r. WILLMS. 11JLJN76. _ 

S# PATCH NUMBER 521 FOR CANOE. XVI. 
USERBASE' % BASE 
S VOIDT 00015200 

LLOISKREADl«USERBASE+i; 

USERLQC!*USERBASE+USRJ 
iOCEDURE ERR CH)J 



CONTAINS 18 CARQS, 
ADOR OF USERS/CANDE 



STREAM PR 
BEGIN 

dii*w; 

END OF 
INTEGER I 



DSls3lLlT"USERS/CANDE HAS MORE THAN 1 ROW"; OS I *LI T"* H J 

err; 



; 



FOR 11*11 STEP 
IF WORK [IJ 
BEGIN 

err cd; 
n=o/o; 

end; 



1 UNTIL 29 
GTR THEN 



DO 



TWXOUT (0#L C03»32'l); 
% KILL CANDE 



00012510 
00015110 
01011600 
01012710 
05000332 
05000334 
05000336 
05000338 
05000340 
05001025 
05001030 
05001035 
05001040 
05001045 
05001050 



y^ 



.i 



USERBASEj=WQRK tlO}i 

lldiskread»=userbase; x users/cande record zero 

oiskwrite (USERBASE); 
$1 THIS PATCH UPDATES THE LOGGING PRBCEDURE. 
» USERS/CANDE MUST NOW BE A 1 ROW FILE. THIS WILL SPEED UP THE 
I LOGGING PROCEDURE AND CUT DOWN ON CANDES CORE REQUlREMENTSt 
t 
t D.Gj "II I M g - °* ■""**, 



05001055 
36005200 
36005900 



rnPTTtH NUMBER 522 FOB ' CANDE.XVI ,0 CONTAINS 91 CARDS, 

REMUSERBASE* % BASE ADOR OF REMOTE/USERS 
STREAM PROCEDURE SYSERR CW); 
BEGIN 

DU«*W; DSJ»26LIT"SYSTEM ERROR " PLEASE WAIT"; 
END OF SYSERB; 
STREAM PROCEDURE OPERR CW*S,UC#UR;; VALUE S#UC>UR; 

BEGIN 

LABEL TQ#T1»T2>EXIT; 

DI**W; DS»sl9LlT"CANDE-REMQTE/USERS "; 

ci»«ci+s; 
go to to; 
go to ti; 

GO TO T2J 

DS!«16LIT"LINK ERROR FROM ") 

sii«bloc uc> sitasi + w dsj*7 chr; 

DS»*4LIT M TO *; 

sit«ssui; Dst«? chr; 
go to exit; 



T0« 
Tl» 

T2I 
EXIT: 



DS?»7LIT w nO FILE"; DSj»27LIT" 71 

go to exit; 

dsj*12lit"invali0 user"; ds»»22lit" "; 
go to exit; 

ds**10lit m rqws gtr 1"; ds«=24lit" "; 



end of operr; 
stream procedure nomoney (w)/ 

BEGIN 

DIMW; DSl«46LlT M S0RRY>Y0U CAN NOT USE THE SYSTEM AT THIS TIME""; 
DS«»1?LIT H ALL0CATI0N EXCEEDED"; 

end of nomoney; 
label getremuser#kickoff*moneyok; 

tempj«8; 

A CBASE+7]IbW0RK [28j; * REMOTE/USERS OFFSET 

IF REMUSERBASE EOL THEN X FIRST USER LOGGING IN 
BEGIN 

find (ll&iam [ 33*41 * 7 3 , 0# "remote %"users "*pr ivucode); 
waitfor»*iam; 

DOINGIcB; 

go to exit; 
end; 



GETREMUSERi 



lldiskread»*remuserbase*a c6ase+7]; 
want»*vdiskread; 
doing? no; 
go to exit; 



00012520 
01005102 
01005104 
01005106 

01005106 
01005110 
01005112 
01005114 
01005116 
01005118 
01005120 
01005122 
01005124 
01005126 
01005126 
01005130 
01005132 
01005134 
01005136 
01005136 
01005140 
01005142 
01005144 
01005146 
01005146 
01005150 
01005152 
01005154 
01005160 
01005162 
01005164 
01005166 
01005168 
01005350 

01012100 
01014250 
01015640 
01015645 
010J5650 
01015655 
01015660 
01015665 
01015670 
01015675 
01015660 
01015685 
01015690 
01015695 



MQNEYOKJ 010J5697 

KICKOFFJ 01015850 

BEGIN % CASE 8 • 01021205 

IF EVENTS CU LSS 2 THEN 01021210 

BEGIN 01021215 

SYSERR (WORK); TWXOUT (lL*WORK [03*26*1); 01021220 

OPERR (WORK, EVENTS [ 1 ]*l#"O f, *"0")l TWXQuT (0*WORK [03*53* 1 ) ;0t021225 

IAM»»0; 01021230 

GO TO EXIT; 01021235 

END; 01021237 

LlDISKREADi»EVENTS [2], [181153; 01021240 

WANT««VOISKREAD; 01021245 

00ING»«9; 01021250 

GO TO EXIT; 01021255 

END CASES; X Ol 021260 

BEGIN X CASE 9 01021265 

FOR H»ll STEP 1 UNTIL 29 DO 01021270 

IF WORK [13 GTS THEN 01021275 

BEGIN 01021280 

SYSERR CWORK); TWXOUT (LL*WQRK [Q}*26*1); 01021285 

QPE8R (W0RK*2* W M * M W ); TWXOUT (0*WQRK [03*53*1); 01021290 

IAMI*0; 01021295 

GO TO exit; 01021300 

END; 01021305 

REMUSERBASE»*WORK [10]; 01021310 

GO TO GETREMUSER; 01021315 

END CASE9; % ,, ,01021320 

BEGIN % CASE 10..., * «... ...01021325 

IF USRHWQRK CQ3 NEQ USERCUDE THEN 01021330 

BEGIN 01021335 

SYSERR (WORK); TWXOUT (LL,WQRK [03*26,1); 01021340 

OPERR (WQRK*3*USERC0DE*USR)* TWXOUT (Q*WORK [03*53*1); 01021345 
IAMi-o; 01021350 

GO TO EXIT; 01021355 

END; 01021360 

IF B (WORK [13, [10:13) THEN 01021365 

BEGIN 01021370 

NOMONEY (WORK); TWXOUT (LL*WQRK [03*65*1)' 01021375 

GO TO KICKOFF; 01021380 

END; 01021385 

GO TO MQNEYQK; 01021387 

END CASE 10;% 01021390 

END ALL CASES; 01021395 

t THIS PATCH UPDATES THE LOGGING IN PROCEDURE. 

I WHEN A USER ATTEMPTS TO LOG IN* CANOE REAOS HIS REMOTE/USERS RECORD TO 
I DETERMINE IF THE USER HAS EXCEEDED HIS ALLOCATION OR NOT (EACH 
I USERS/CANDE RECORD HAS THE OFFSET INTO REMOTE/USERS REQUIRED TO FIND 
I THE CORRESPONDING U5ERC0DE). USERS EXCEEDED THEIR ALLOCATION ARE 
I NOT ALLOWED TO LOG IN. IF REMOTE/USERS IS NOT ON DISK OR HAS MORE 
I MORE THAN 1 ROW OR CANDE IS AN INVALID USER* THE USER IS ASKED TO WAIT 
« WHILE THE OPERATOR IS INF8RMED OF THE ERROR. ONCE CORRECTED THE USER 
I MAY ATTEMPT TO LOG In AGAIN, CANDE WILL ALSO BE ANNOYED IF THE USERCODE 
I READ FROM REMOTE/USERS IS NOT THE USERCODE LOGGING iNt CANDE WILL 
l TREAT THIS ERROR THE SAME AS THE NO FILE CONDITION DESCRIBED ABOVE, 
I 
i D.G. W1LLMS* 23JUN76 



# PATCH NUMBER 523 FOR CANDE, XVl.O CONTAINS 18 CARDS, 



% TO VOID A CARD 

TEMP»*e* X MUST NOT BE 4 - SSFILE USfcS 
IF EVENTS C33 LSS THEN GO TO WINUUP; % NO 
ILDISKREADI«EVENTS [23.E1BI153J 



AS FLAG 

records 



x 

% 



transfer 

SSFILE 



TO 



X RETURN TO "HITHERE" 



DOINGJ-2; 
iAMIaVSSFIUE; 
A CBASE+3]|sLL; 
S VOIDT 

DEFINE SPOCNTRL • A CBASE+2J #; 
BEGIN 

IF TEMP NEQ 4 THEN 
BEGIN 

IAMjaVHELLO/ DOINGl*7; 
END 
ELSE 

iami«o; 

go to exit; 

end; 
this patch updates logging in. 

if the news/cande file is present during login* procedure ssfile 
be called to list the entire filef control will then go back to 

HITHERE. 

ALSO CANDE WILL NOT LIST SEGMENT iERO ON THE TERMINAL IF THE 

NEWS/CANDE FILE CONTAINS NO RECORDS (lEt ROW 1 AT SEGMENT 0). 



$» 
St 
$> 
SI 
S| 
St 
St 
St 



00011600 
01012100 
01019350 
01019400 
01019550 
01019600 
01019650 
01019900 
42000450 
42007000 
42007010 
42007020 
42007030 
42007040 
42007050 
42007060 
42007070 
42007080 



WILL 



O.G. WIL LMSj 24JIJN76. 



i# PATCH 



NUWUTT 
IF 

BEGIN 

IF 



Z4JU& 
524? 



OR CANDE. XVI, CONTAINS 9 CARDS. 
CBASE3 LSS 50 THEN % CHECK FOLLOWING 



IF NOT -HELLO" 



SI 
SI 
St 
St 
St 
SI 
St 

-s-r 



THIS 
IF A 
FILE 
IF A 



TisCCA CSREG!*BASE-A CBASE33).FF) > 1 THEN 
GOERR ( ,, T0QMANY'M6); % TOO MANY PARAMETERS 
IF T s 1 THEN 

IF Tl*(A C INC (SREG)].t6l42])» M BYE " THEN*FORCED 
ELSE GOERR (T#8) * ILLEGAL PARAMETER 
ELSE 

end; 
patch updates bye, 

USER TRANSMITS B*E BYE, CANDE WILL NOT CHECK TO SEE IF HIS WORK 
HAS UNSAVED RECORDS IN IT, IT WILL GO DIRECTLY TO LOGGING HIM OFF, 
USER EXCEEDS HIS IDlE PERIOD, THE MCP WILL ALSO SEND A BYE BYE 



54000601 
54000602 
54000603 
54000604 
54000605 
BYE54000606 
54000607 
54000608 
54000665 



St 
St 
St 
St 
St 

"IT 



COMMAND TO DISCONNECT HIM IMMEDIATELY, 

D.6,WI LLMS,11AUG76. 

■PAtCH NU?IBEirb25 FOB CANDE, XVltO CONTAINS 1 CARD, 

WORK [161l*5J % PRIORITY 
THIS PATCH ALTERS THE OEFiULT PRIBRITY OF JOBS COMPILED UNDER CANDE, 
THIS PRIORITY 13 5, THIS WJLl ONLY BE USED WHEN A PROGRAM COMPILED 
UNDER CANDe IS EXECUTED UNDER BATCH, 



/ 



fceomets ^cp patm 4- 



Fl«-T»lS.T» .l*AEE£eL 



32001800 



St 
St 
St 



0.G.WlLLMS,13APR76. 

PATCH NUMBER 526 ToN CaNOL.XVI.U lUNJAlNS 3 CARDS, 
IAM!*0; 

IAMt»0; 

lAMI^O; 
THIS PATCH CAUSES CAnDE TO SET UP THE "IP" AND M 1T W FILES 
USER IS GOING TO USE A WORK FILE UE, "MAKE" OR "LOAD"), 
THIS PATCH CANDE WOULD SET THESE FILES UP WHENEVER A USER 



ONLY IF THE 
PRIOR TO 
LOGGED IN, 



01021000 
09002900 
09004400 



I 



SI 
St 

SI 
SI 



SOME USERS NEVER USE A WORK FILE AnO THUS DON"! NEED THESE FILES. 
THIS WILL ALSO HELP TO REOUCE CLUTTER ON THE DISK, 



0.G,WILLMS,16AUG76. 



if Patch number 



X******** 
PROCEDURE 



******* 
FILESA 
BOOLEAN 
X*************** 
BEGIN 
REAL Tl 

UlsLL 
REMOVEF 

IF OBJT 
REMOVEF 
REMOVEF 
REMOVEF 
T2.C36I 
REMOVEF 
END OF 

FI 
4002950 



TaNDTTWTTTJ CQNfAtNS 37 CARDS, 
********************************************** 

jtoo>usercoue)j value ob jt0q,userc0de* 
; real usercude; 

***************************************************** 



527 FOR 

******* 

WAY (OB 

OBJTOO 



'T2J 

& li C33UH71J 

ILE (T1,T2I«MAKEFN C "1 S"*LL) >USEHCQDE ); 

00 THEN REMOVEFILE C Tl# T2, C 6 I 36] >USERCQD£) J 

ILE (T1,T2 & "P" [12*42161, uSERCUDE); 

ILE CT1.T2 & "T" C12J42!63,uSEReOOEW 

ILE CT1,T2 & "Q" C12»42I6J,USERCOOE?; 

12]l*i; 

ILE (T1,T2 & "P" C12«42«6],USERC0DEJ; 

FILESAWAYi 

LESAWAY CTRUE»USERCUOEJ; 



S VQIDT 5 
WRKFILEI 



BEGIN 



END 



IF FILENAME ■ THEN GOEHR ("NO FILE"#1); 
T PC OUNTi "FILENAME l»SQURCEFILEI« I AMI «0J 
FILESAWAY (NOT S#USERCQDE); 
FILESOKjsFALSEJ 

IF NOT S THEN GOODOBJI«B (08JECTFILE 1*0); 
IF THEN 

if goodobj then 

objectfileisq; 
goodobjisfalse; 

XI*MAKEFN ("1S"*LL>' 

REMQVEFILE CLL * 13 I 33141 1 73, X, C6I 363,USERCQDE)> 

iami»o; 

GO exit; 



this p 
if a u 

FILES 

IF A U 

CANOE 
WITH A 



ELSE 

GOERR ("NO FILE"#26) 
ELSE 

go to wrkfile; 
atch updates "remove", 

ser removes his workfile, cande will nqw remove all associated 
(ie, "is", "ip", "it"* etc), 
ser attempts to remove his workfile 
will now check to see if he has one 



***00066150 
00066200 
00066225 

***00066250 
00066300 
00066350 
00066400 
00066450 
Q0066500 
00066550 
00066600 
00066650 
00066700 
00066750 
00066800 
54002200 
54002300 
61001000 
61001050 
6100X100 
61001H0 
61001120 
61001130 
61003213 
61003216 
61003220 
61003223 
61003226 
61003230 
61003233 
61003236 
61003240 
61003243 
61003246 
61003250 
61003253 
61003260 



St 

SI 

SI 
S| 
SI 
St 
SI 
-SI O.G.HIU „MS P 17AHA7A, 



(OR HIS OBJECT WORKFILE) 
RATHER THAN JUST RESPOND 



ING 



n g i 



TJ PATCH NUMBER 528 FOR CANDE, XVI. CONTAINS 124 CARDS, 

k, "" ne "'fER8S * 50#» 
*************************** 



OEFINE 

X******** 

PROCEDURE 

X******** 

BEGIN 

INTEGER I 



NUM0FVER8S * 50#» 00008500 

*************************************650QQlOO 

. rut A no » V a f « i . lihnnonn 



BATCHIT (lCW,A); BOOLEAN LCWJ ARRAY A COj; 65000200 

*************************** ************************************6S000300 

65000400 
,pc; 65000500 



REAL WORD; 

BOOLEAN TOIT>SEnDIT,LIBtOG; 

label libfil»exit; 

case doing of 

BEGIN X ALL CASES 

BEGIN X CASE - SYNTAX CHECK 

IF TPCOUNT GTR THEN X WQRKFILE NEEDS UPDATING 

BEGIN 

LITOUT ("WAIT, ",NOCRLF)i TEMP»»li W ANT » «VUPOATEJ 

GO exit; 
end; 
clear (work [03*10); 

LIBTOGJ»TOlTt*SENDlTlsB (I»«0)i 

pc**a csreqi«base-a cbaseu.ff; 

while i lss pc do x pick up all parameters 

BEGIN 

INC CI)J 

WORD»*A CINC CSREG)]; 

IF WORD.C3;3] GTR THEN X LETTER STRING 

BEGIN 

W0R0»*WQRQ.t6t42]; 

IF WORD * "SMALL " THEN 

IF WORK [43 » THEN WORK [43 1 »"P5EUDQ5" 

ELSE GOERR CWQRD»32) X "SUE" ALREADY IN 
ELSE 
IF WORD * "MEDIUM " THEN 

IF WORK [43 = THEN WORK [4 3 » *"PSEUDOM" 

ELSE GOERR (WQRD»32) 
ELSE 
IF WORD « "LARGE " THEN 

IF WORK [43 * THEN WORK [ 43 M"PSEUDQL" 

ELSE GOERR (WORD, 32) 
ELSE 
IF WORD » "TO " THEN 

IF TOIT THEN GOERR (WORD'S) 

ELSE TQIT»*TRUE 
ELSE 
IF WORD .« "LIBRARY" THEN 



LIBFIL* 



IF LIBTOG THEN GOERR (WORD'S) ELSE 
IF TOIT THEN GOERR (WURD*39) 
ELSE 

BEGIN 

libtogjstrue; 

if 1*2 leq pc then fixuser ( l» a* exit* true); 

END 
ELSE 
IF WORD ■ "SEND " TMItN 

IF SENDIT THEN GOERR (W0RD>8) 
ELSE SENDITJ-TRUE 
ELSE 

IF WORD « "GLENRIO" THEN 
IF SENDIT THEN 

IF WORK C93 ■ THEN WORK [93»*2 
ELSE GOERR (WORD'S) 
ELSE GOERR (WORD'S) 
ELSE 



65000600 
65000700 
65000800 
65000900 
65001000 
6500UOO 
65001200 
650Q1300 
65001400 
65001500 
65001600 
65001700 
65001800 
65001900 
65002000 
65002100 
65002200 
65002300 
65002400 
65002500 
65002600 
65002700 
65002800 
65002900 
65003000 
65003100 
65003200 
65003300 

6500340.Q 
65003500 
65003600 
65003700 
65003800 
65003900 
65004000 
65004100 
65004200 

65004300 
65004400 
65004500 
65004600 
65004700 
65004800 
65004900 
65005000 
65005100 
65005200 
65005300 
65005400 
65005500 
65005600 
65006300 
65006400 
65006500 

65006600 
65006700 
65006800 



end; 



WQRK C5J»«1 
BE FILE-NAME 



IF WORD » "BLANK " THEN 

IF WORK t.5J = THEN 

ELSE GOERR (W0RD>8) 
ELSE X MUST 

IF TOIT THEN 

IF WORK [23 « THEN 

IF W0RD.U2»6]«" » THEN WORK [2 3 t*WQRO, [6 I 36 3 

ELSE GOERR <W0RQ»42) 
ELSE GOERR CWQRD#8) 
ELSE 
IF WORKCREAL(LlBTOG)3»0 THEN rtORKC KEAlC HBTOG ) 3 1 »WQRD 

ELSE GOERR (WQRD#8) 

X LETTER STRING 



END X 

ELSE 

IF WORDtCH23 * 1 THEN % 
IF WORD ■ "/* THEN GO 
ELSE GOERR (WQRD/8) 

ELSE 

GOERR <W0RD#8>; X 



SPECIAL CHARACTER 
TO LIBFIL 



IF WORK tOJ * THEN 



NUMBER 
PICKING 



THEN 
THEN 



UP PARAMETERS 
IF FILENAME * THEN GOERR C"NQ FILE"#1) 
ELSE W8RK C03IWSQUHCEFILE; 
WQRK [13?=USERCQOE; 
GOERR C"NQ FILE"*38)J 



end; 

BEGI 



IF WORK [13 ■ 

IF WORK [23 • 

WORK C23.[6«63j*USERCOOE f C6t63; 

W0RKC33**USERC0DE; 

IF WORK [43 » THEN WORK C 4J J*"PSEUDOL w ; 

MOVE C2»W0R0S»USERNAME1'W0HK [63); 

WORK C83l«LL; 

IF WORK [93 « THEN IF SENOIT THEN GQEKR ("SEND 

ELSE WORK [93l-i; 
FIND CLL&IAM C33 9 41 > 7 3 «0# A 
A CBASE*ni*WORK C23; 
A CBASE+23i«WORK [43; 
DISKWRITE (ES91); 
TEMPI»3; 
DOINQIni; 

waitforuum; 
x case o; 

N X CASE 1 - RESULTS OF 
IF EVENTS 
IF EVENTS 



'#8} 



t8ASE3l*WQRK [Q3*WQRK ill* USERCQDE 



INPUT FILE SEARCH 

ci3 lss o then goerr ca cbase3*2); 

[13 s THEN GOEKR (A [BASE3,24); 



X 

X 



NOT ON DISK 
SECURED 



end; 

BEGI 



end; 
end; 



FIND (LL&IAM [ 33* 4 1 » 73# 0, A [8ASE+13*A [BASE+23 ,USERCQDE H 
D0INGID2; 

waitfor»»iam; 

X CASE 1 
N X CASE 2 
IF EVENTS [13 GEO THEN GUERR CA [BASE+l3>3>; X ON DISK 

litout ("wait, "#1>> 
eojmsgjsnot concise; 
writeasteriski*concise; 

RUNH«"BATCH ♦•; 

RUN2t»"CANDE "J 
IAMJsVDISPATCH; 

er«swi*usercode; 

X CASE 2 

X ALL CASES 



65006900 
65007000 
65007100 
65007200 
65007300 
65007350 
65007400 
65007450 
65007500 
65007600 
65007700 
65007800 
65007900 
65008000 
65008100 
65008200 
65008300 
65008400 
65008500 
65008600 
65008700 
65008750 
65008800 
650089^0.0 
65008950 
65009000 
65Q0910Q 
65009200 
65009210 
65009220 
65009225 
J#650093Q0 
65009400 
65009450 
65009500 
65009600 
65009700 

65009800 
65009900 
65010000 
65010100 
65010200 
65010300 
65010400 
65010500 
65010600 
65010700 
65010800 
65010900 
650JJ000 
65011100 
650U200 
650U300 
650U400 
65011500 
65011600 
65011700 



.1 



EXITI 

end of batchit; 

batchit (lcw,a [*]); % 66 - batch 

"5batch m # 3 m 30g1420000000102"> x 66 

THIS PATCH ADDS A NEW VERB "BATCH". THE BATCH VERB Will. TAKE A 
CARD-IMAGE FILE AND CREATE A PSEuUQ-UECK, FILES DESIGNATED AS 
"SMALL" (SEE SYNTAX BELOW) WILL BE ZIPPED IMMEDIATELY* WHILE MEDIUM 
AND LARGE ARE PLACED ON DISK FOR SUBSEQUENT ZIPPING, 

SYNTAX, 

BATCH CFILE-NAME **QR** FILENAME / FILENAME **QR** 

FILE-NAME LIBRARY FiLE-NAMEJ [SMALL **QH** MEDIUM **OR** LARGE} 

[BLANK] TO FILE-NAME-2 CSEND GLENRIDGEJ. 
NOTESI 

IF FILE-NAME-1 Is NOt SUPPLIED* THE WORK FILE WILL BE USED, 
DEFAULT SIZE IS LARGE. 
BLANK WILL BLANK OUT THE SEQUENCE NUMBER ON OATA CARDS OF THE FILE 

BEING ZIPPED (DEFAULT - BLANK l*FALSE ) J . 
FILE-NAME-2 MUST NOT EXIST ON DISK (FILE IS CREATED IN THE FORM 

<CHAR, 1 OF USERC0DE><FlLE-NAME-2> / P5EUD0X WHERE X IS S#M»QR L 

(FOR SMALL MEDIUM AND LARGE RESPECTIVELY)), 
DEFAULT SEND IS "NO SEND" (IE. KEEP IN COMPUTING CENTRE), 
DEFAULT SEND IS DECEw, 

CANOE FIRES UP BATCH/CANDE TO DO THE BATCHING FUNCTION, 
**WARNING** - PATCH WILL REQUIRE DIFFERENT SEQUENCE NUMBERS IF 
PATCH # 403 IS NOT USED, 

D,G.WILLMS, 1SEP76. 



65011800 
650U900 
90317000 
90403440 



LABEL OOOOOOOOOLlNE 00176349CC EX 0/R;COMMONs 1 /FILE S*CANDE/PATCHES;ENO* 



/R 



J 



